(DEFPROP SCANFNS (NIL SETSCANTABLE SCANPUSH SCANPOP) VALUE) 

(LAP SETSCANTABLE SUBR) 
       (PUSH P 1) 
       (PUSH P (C 0 0 (QUOTE 0) 0)) 
 TAG1  (HLRZ@ 2 -1 P) 
       (MOVE 1 0 P) 
       (CALL 2 (E MODCHR) S) 
       (MOVE 1 0 P) 
       (CALL 1 (E ADD1) S) 
       (HRRZ@ 2 -1 P) 
       (MOVEM 1 0 P) 
       (MOVEM 2 -1 P) 
       (JUMPN 2 TAG1) 
       (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 2 0 2 0)) 
       (POPJ P) 
       NIL 

(LAP SCANPUSH SUBR) 
       (MOVE 1 (SPECIAL LISPSCAN) S) 
       (JCALL 1 (E SETSCANTABLE) S) 
       NIL 

(LAP SCANPOP SUBR) 
       (MOVE 1 (SPECIAL PROGSCAN) S) 
       (JCALL 1 (E SETSCANTABLE) S) 
       NIL